SUBROUTINE TO SCROLL SCREEN DATA 1 PIXEL RIGHT 



BYTE I 


DECIMAL 


HEX 


MNEMONICS 


0 


213 


D5 


PUSH DE 


1 


175 


AF 


XOR A 


2 


33 


21 


LD HL, nn 


3 


0 


00 




4 


64 


40 


DW 163S4 ln 


5 


14 


OE 


LD C, n 


6 


90 


5A 


DB 90 1Q 


7 


6 


06 


LD B, n 


8 


40 


28 


DB 40 1q 


9 


203 


CB 


RES 0, D 


10 


130 


82 




11 


126 


7E 


LD A, (HL) 


12 


230 


E6 


AND n 


13 


170 


AA 


DB 170 1() 


14 


31 


IF 


RRA 


15 


203 


CB 


RRD 


16 


26 


1A 




17 


31 


IF 


RRA 


18 


203 


CB 


RLD 


19 


18 


12 




20 


174 


AE 


XOR (HL) 


21 


230 


E6 


AND n 


22 


170 


AA 


DB, 170 1q 


23 


174 


AE 


XOR (HL) 


24 


119 


77 


LD (HL), A 


25 


35 


23 


INC HL 


26 


16 


10 


DJNZ, dis 


27 


239 


EF 


DB -17 1q 


28 


13 


OD 


DEC C 


29 


32 


20 


JRNZ, dis 


30 


232 


E8 


DB -24 10 


31 


209 


Dl 


POP DE 


32 


201 


C9 


RET 



LABELS 


COMMENTS 


START 


Save BASIC pointer. 
Clear the A register. 
Set pointer to top of 
screen RAM. 




Set I lines to scroll. 


LOOP 2 


Set # bytes per line 
to scroll. 


LOOP 1 


Clear bit 0 of D register. 




** 

Get a byte. 




Mask out program data. 




Scroll area to right 2 
bits (1 pixel) and 




move LSB to MSB thru 
Carry Flag and D register. 



Mask program out of 
shifted byte; 
restore screen and 
program mixture. 

Scrolled byte to screen. 
Next byte address. 
Decrement B; if not 0, 
jump to LOOP 1; else 
Decrement C; 
if CIO, jump to 
LOOP 2; else 
Restore BASIC pointer. 
Return to BASIC. 



SUBROUTINE TO SCROLL SCREEN DATA 1 PIXEL LEFT 



f 



TE # 


DECIMAL 


HEX 


0 


213 


D5 


1 


175 


AF 


2 


33 


21 


3 


15 


OF 


4 


78 


4E 


5 


14 


OE 


6 


90 


5 A 


7 


6 


06 


8 


40 


28 


9 


203 


CB 


10 


130 


82 


11 


126 


7E 


12 


230 


E6 


13 


170 


AA 


14 


31 


IF 


15 


203 


CB 


16 


26 


1A 


17 


31 


IF 


18 


203 


CB 


19 


18 


12 


20 


31 


IF 


21 


203 


CB 


22 


26 


1A 


23 


31 


IF 


24 


203 


CB 


25 


18 


12 


26 


31 


IF 


27 


203 


CB 


28 


26 


1A 


29 


31 


IF 


30 


203 


CB 


31 


18 


12 


32 


31 


IF 


33 


203 


CB 


34 


26 


1A 


35 


31 


IF 


36 


203 


C3 


37 


18 


12 


38 


174 


AE 



MNEMONICS 


LABELS 


PUSH DE 


START 


XOR A 




LD HL, nn 




DW 19983. 0 
LD C, n 




DB 90 1Q 
LD B, n 


LOOP 2 


DB 40 1q 
RES 0, D 


LOOP 1 


LD A, (HL) 
AND h 




DB 170 1q 
RRA 




RRD 




RRA 




RLD 




RRA 




RRD 




RRA 




RLD 




RRA 




RRD 




RRA 




RLD 




RRA 




RRD 




RRA 




RLD 




XOR (HL) 





COMMENTS 



( 



Save BASIC pointer. 

Clear the A register. 

Set pointer to bottom 
of screen RAM. 

Set § lines to scroll. 

Set # bytes per line 
to scroll. 

Cle.ar bit 0 of D register. 

*- 

Get a byte. 

Mask out program data. 



( 

r 

( 

( 



( 

( 



Scroll area to right 2 ( 

bits (1 pixel) and 
move LSB to MSB thru { 

Carry Flag and D register. 



Scroll area to right 2 ( 

bits (1 pixel) and 
move LSB to MSB thru ( 

Carry Flag and D register. 



Scroll area to right 2 ( 

bits (1 pixel) and 
move LSB to MSB thru ( 

Carry Flag and D register. 



Scroll area to right 2 
bits (1 pixel) and 
move LSB to MSB thru 
Carry Flag and D register. 



Mask program out of 




39 


230 


E6 


AND n 


shifted byte; 


40 


170 


AA 


08, 170 10 


restore screen and 


41 


174 


AE 


XOR (HL) 


program mixture. 


42 


119 


77 


ID (HL), A 

“bee 


Scrolled byte to screen. 


43 


^43. 




mr HL 


Next byte address. 


44 


16 


10 


DJNZ, dis 


Decrement B; if not 0, 


45 


221 


DO 


D3 -35, n 


jump to LOOP 1; else 


46 


13 


00 


DEC C 


Decrement C; 


47 


32 


20 


JRNZ, dis 


if C#0, jump to 


48 


214 


06 


DB -42 10 


LOOP 2; else 


49 


209 


Dl 


POP DE 


Restore BASIC pointer. 


50 


201 


C9 


RET 


Return to BASIC. 



26 September 1982 

PSC Box 542 
APO Mi ami 34004 




Bob Fabris 

2636 Morris Drive 

San Jose, CA 95127 

Dear Sob, 

In answer to the challenge on page 105 of the Arcadia n for scrolling the screen 
up, down, left and right, enclosed are: 

a. A disassembled listing of the "scroll right" routine on page 105; 

b. A listing to .scroll the screen 1 pixel left; 



c. A listing to scroll the screen 1 pixel up; 



d. A listing to scroll the screen 1 pixel down. 

l ut1na « 0 « requires that either the top line (Y=43) be blank, or a BOX 
0 43 lSo.1.2 coland be issued before calling the -chine- anguage sub out, e - 
otherwise, anything in the foreground color on nne 43 w 11 be stretched down 
each time the routine is called. This is due to the ^ 

"abova" line 43 - by changing the byte at location 9 to 90, n* J 
curtain effect which covers each line in the foreground col> 



* 

r. 







SUBROUTINE 


TO SCROLL SCREEN 


DATA 1 


PIXEL UP 


( 


r'TE # 


DECIMAL 


HEX 


MNEMONICS 


LABELS 


COMMENTS 


( 


0 


213 


D5 


PUSH DE 


START 


Save BASIC pointer. 


( 


i 

X 


175 


AF 


XOR A 




Clear the A register. 




2 


33 


21 


LD HL, nn 




Set pointer to top of 


( 


3 


0 


00 






screen RAM. 




4 


64 


40 


DW 16384 10 






( 


5 


17 


11 


LD DE, nn 




Address of next byte up. 




6 


40 


28 








( 


7 


64 


40 


DW 16424 1q 








8 


14 


OE 


LD C, n 




Set # lines to scroll . 


( 


9 


90 


5A 


DB 90 10 








10 


6 


06 


LD B, n 


LOOP 2 


Set # bytes per line 


( 


11 


40 


28 


DB 40 1q 




to scroll. 




12 


126 


7E 


LD A, (HL) 


LOOP 1 


Get a byte. 


( 


13 


230 


E6 


AND n 




Mask out screen data. 




14 


85 


55 


DB 85^g 






f 


15 


119 


77 


LD (HL), A 




Save program data. 




16 


26 


1A 


LD A , (DE) 




Get next byte. 


f 


17 


230 


E6 . 


AND n 




Mask out program data. 




18 


170 


AA 


DB 170 1q 






( 


19 


174 


AE 


XOR (HL) 




Move up one line and mix 




20 


119 


77 


LD (HL), A 




with program there. 


( 


21 


19 


13 


INC DE 




Next pair of 




22 


35 


23 


INC HL 




bytes' addresses. 


( 


23 


16 


10 


DJNZ, dis 




Decrement B; if not 0, 




24 


243 


F3 


DB -13 1q 




jump to LOOP 1; else 


( 


25 


13 


OD 


DEC C 




Decrement C; 




26 


32 


20 


JRNZ, dis 




if C#0, jump to 


( 


27 


238 


EE 


DB -18 1q 




LOOP 2; else 




28 


209 


D1 


POP DE 




Restore BASIC pointer. 


( 


29 


201 


C9 


RET 




Return to BASIC. 





1 

( 

i 

( 

V 




SUBROUTINE TO SCROLL SCREEN DATA 1 PIXEL DOWN 



BYTE # 


DECIMAL 


HEX 


MNEMONICS 


0 


213 


D5 


PUSH DE 


1 


175 


AF 


XOR A 


2 


33 


21 


LD HL, nn 


3 


15 


OF 




4 


78 


4E 


DW 19983 10 


5 


17 


11 


LD DE, nn 


6 


231 


E7 




7 


77 


4D 


DW 19943 1q 


8 


14 


OE 


LD C, n 


9 


89 


59 


DB 85 10 


10 


6 


06 


LD B, n 


11 


40 


28 


DB 40 10 


12 


126 


7E 


LD A, (HL) 


13 


230 


E6 


AND n 


14 


85 


55 


DB 85^q 


15 


119 


77 


LD (HL), A 


16 


26 


1A 


LD A , (DE) 


17 


230 


E6 


AND n 


18 


170 


AA 


DB 170 1q 


19 


174 


AE 


XOR (HL) 


20 


119 


77 


LD (HL), A 


21 


27 


IB 


DEC DE 


22 


43 


2B 


DEC HL 


23 


16 


10 


DJNZ, dis 


24 


243 


F3 


DB -13 1q 


25 


13 


OD 


DEC C 


26 


32 


20 


JRNZ, dis 


27 


238 


EE 


DB -18 1q 


28 


209 


Dl 


POP DE 


29 


201 


C9 


RET 



LABELS COMMENTS 

START Save BASIC pointer. 

Clear the A register. 

Set pointer to bottom 
of screen RAM. 

Address of next byte up. 

Set # lines, to scroll . 

LOOP 2 Set # bytes per line 

to scroll. 

LOOP 1 Get a byte. 

Mask out screen data. 

Save program data. 

Get next byte. 

Mask out program data. 

Move down one line and mix 
with program there. 

Next pair of 
bytes' addresses. 

Decrement B; if not 0, 
jump to LOOP 1; else 
Decrement C; 
if C#0, jump to 
LOOP 2; else 
Restore BASIC pointer. 
Return to BASIC. 




